respuesta = InputBox("Introduzca valor",  "Ttulo de pruebas", _
    "MiValor", XPos:=1000, YPos:=5000)
